1000 REM ------------------------------ 1005 REM JUMP 1.1 1010 REM 1015 REM DAS STRATEGIE-BRETTSPIEL JETZT 1020 REM AUF IHREM COMMODORE 64! 1025 REM 1030 REM (W) JANUAR 1988 BY STEFAN WUDY 1035 REM LENAUSTRASSE21 1040 REM 8440 STRAUBING 1045 REM ------------------------------ 1050 REM VARIABLEN UND DIM 1055 REM ------------------------------ 1061 IFA=0THENA=1:GOSUB8000 :REM ZS - LADEN 1065 TR(2)=104:TR(3)=138:GOSUB2100 1070 TR(0)=32:TR(1)=64:TR(4)=159 1075 X$(0)="JUMP 1.1" 1080 X$(1)="BY STEFAN WUDY" 1085 X$(2)="PUBLISHED IN" 1090 X$(3)="1988" 1095 X$(4)="BY THE FAMOUS" 1100 X$(5)="MAGIC DISK 64" 1105 X$(6)="THE MAGAZIN ON DISK" 1110 X$(7)="FOR THE C64" 1115 L2$=" ":Z=-1 1120 BS=49152 :REM BILDSCHIRMSPEICHER 1125 L1$=" " 1130 GOTO1840:REM PROGRAMMVORSPANN 1135 GOTO2200:REM LEVELAUSWAHL 1140 : 1145 REM ------------------------------ 1150 REM STEUERUNG CRSR-TASTEN 1155 REM ------------------------------ 1160 : 1165 PRINT"[154]STEINE":PRINTL1$:PRINT"[145]"SS:GOSUB1540 1170 POKE204,0:POKE198,0:WAIT198,1:GETA$ 1175 POKE205,2:WAIT207,1,1:POKE204,1 1180 IFA$="R"THEN1805 1185 IFA$=""THENS=S+2:GOTO1225 1190 IFA$="[157]"THENS=S-2:GOTO1270 1195 IFA$="[145]"THENZ=Z-2:GOTO1315 1200 IFA$=""THENZ=Z+2:GOTO1360 1205 IFA$=CHR$(13)THENGOTO1405 1210 IFA$="A"THEN2140 1215 GOTO1165 1220 : 1225 REM ------------------------------ 1230 REM BEWEGEN NACH RECHTS 1235 REM ------------------------------ 1240 : 1245 AD=BS+S+40*Z 1250 GOSUB1540 1255 IFPEEK(AD)=32THENS=S-2 1260 GOTO1165 1265 : 1270 REM ------------------------------ 1275 REM BEWEGEN NACH LINKS 1280 REM ------------------------------ 1285 : 1290 AD=BS+S+40*Z 1295 GOSUB1540 1300 IFPEEK(AD)=32THENS=S+2 1305 GOTO1165 1310 : 1315 REM ------------------------------ 1320 REM BEWEGEN NACH OBEN 1325 REM ------------------------------ 1330 : 1335 AD=BS+S+40*Z 1340 GOSUB1540 1345 IFPEEK(AD)=32THENZ=Z+2 1350 GOTO1165 1355 : 1360 REM ------------------------------ 1365 REM BEWEGEN NACH UNTEN 1370 REM ------------------------------ 1375 : 1380 AD=BS+S+40*Z 1385 GOSUB1540 1390 IFPEEK(AD)=32THENZ=Z-2 1395 GOTO1165 1400 : 1405 REM ------------------------------ 1410 REM SPRINGRICHTUNG BESTIMMEN 1415 REM ------------------------------ 1420 : 1425 AD=BS+S+40*Z:PRINT"";:GOSUB1540:IFPEEK(AD)=58THEN1170 1430 POKE204,0:POKE198,0:WAIT198,1:GETA$ 1435 POKE205,2:WAIT207,1,1:POKE204,1 1440 IFA$="[145]"THEN1470 1445 IFA$=""THEN1590 1450 IFA$=""THEN1655 1455 IFA$="[157]"THEN1730 1460 GOTO1430 1465 : 1470 REM ------------------------------ 1475 REM SPRINGEN NACH OBEN 1480 REM ------------------------------ 1485 : 1490 Q=0:Z=Z-2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=32THENZ=Z+2:GOTO1145 1495 Z=Z-2:GOSUB1535 1500 AD=BS+S+40*Z 1505 IFPEEK(AD)=58THENQ=Q+1 1510 Z=Z+2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=81THENQ=Q+1 1515 IFQ=2THENZ=Z+4:PRINT":";:Z=Z-2:GOSUB1535:PRINT":";:Z=Z-4:GOSUB1535:PRINT"[209]"; 1520 IFQ=2THENSS=SS-1:GOSUB2130 1525 GOTO1145 1530 : 1535 REM ------------------------------ 1540 REM PRINTAT 1545 REM ------------------------------ 1550 IFS<0THENS=0 1555 IFZ<0THENZ=0 1560 IFS>40THENS=40 1565 IFZ>24THENZ=24 1570 POKE211,S:POKE214,Z:SYS58732 1575 RETURN 1580 : 1585 : 1590 REM ------------------------------ 1595 REM SPRINGEN NACH UNTEN 1600 REM ------------------------------ 1605 : 1610 Q=0:Z=Z+2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=32THENZ=Z-2:GOTO1145 1615 Z=Z+2:GOSUB1535 1620 AD=BS+S+40*Z 1625 IFPEEK(AD)=58THENQ=Q+1 1630 Z=Z-2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=81THENQ=Q+1 1635 IFQ=2THENZ=Z-4:PRINT":";:Z=Z+2:GOSUB1535:PRINT":";:Z=Z+4:GOSUB1535:PRINT"[209]"; 1640 IFQ=2THENSS=SS-1:GOSUB2130 1645 GOTO1145 1650 : 1655 REM ------------------------------ 1660 REM SPRINGEN NACH RECHTS 1665 REM ------------------------------ 1670 : 1675 Q=0:S=S+2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=32THENS=S-2:GOTO1145 1680 S=S+2:GOSUB1535 1685 AD=BS+S+40*Z 1690 IFPEEK(AD)=58THENQ=Q+1 1695 S=S-2:GOSUB1535 1700 AD=BS+S+40*Z:IFPEEK(AD)=81THENQ=Q+1 1705 IFQ=2THENS=S-2:GOSUB1535:PRINT":";:S=S+2:GOSUB1535:PRINT":";:S=S+2:GOSUB1535 1710 IFQ=2THENPRINT"[209]"; 1715 IFQ=2THENSS=SS-1:GOSUB2130 1720 GOTO1145 1725 : 1730 REM ------------------------------ 1735 REM SPRINGEN NACH LINKS 1740 REM ------------------------------ 1745 : 1750 Q=0:S=S-2:GOSUB1535:AD=BS+S+40*Z:IFPEEK(AD)=32ORS<0ORS>40THENS=S+2:GOTO1145 1755 S=S-2:GOSUB1535 1760 AD=BS+S+40*Z 1765 IFPEEK(AD)=58THENQ=Q+1 1770 S=S+2:GOSUB1535:AD=BS+S+40*Z 1775 IFPEEK(AD)=81THENQ=Q+1 1780 IFQ=2THENS=S+2:GOSUB1535:PRINT":";:S=S-2:GOSUB1535:PRINT":";:S=S-2:GOSUB1535 1785 IFQ=2THENPRINT"[209]"; 1790 IFQ=2THENSS=SS-1:GOSUB2130 1795 GOTO1145 1800 : 1805 REM ------------------------------ 1810 REM RESET=SPIELENDE 1815 REM ------------------------------ 1820 : 1825 PRINT"[147]"; 1830 PRINT"VIELEN DANK F^R'S SPIELEN!" 1835 SYS64738 1840 : 1845 REM ------------------------------ 1850 REM PROGRAMM-VORSPANN 1855 REM ------------------------------ 1860 : 1865 POKE 53280,0:POKE 53281,0 1870 PRINT CHR$(8)CHR$(142)"[147]":FORY=1TO39:PRINT"[192]";:NEXT:PRINT:PRINT 1875 T$(1)="M A G I C D I S K 6 4 PR;SENTIERT:" 1880 T$(2)=" STRATEGIESPIEL NUMMER EINS:" 1885 T$(3)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]" 1890 T$(4)=" J U M P VERSION 1.1" 1895 T$(5)=" (W) JANUAR 1988 BY STEFAN WUDY" 1900 T$(6)=" LENAUSTRA\E21" 1905 T$(7)=" 8440 STRAUBING" 1910 T$(8)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]" 1915 T$(9)="IST EINE ANLEITUNG ERW^NSCHT (J/N) ?" 1920 FORQ=1TO9 1925 PRINT"[151]"+T$(Q):FORY=1TO30:NEXT 1930 PRINT"[145][152]"+T$(Q):FORY=1TO30:NEXT 1935 PRINT"[145][155]"+T$(Q):FORY=1TO30:NEXT 1940 PRINT"[145]"+T$(Q):FORY=1TO30:NEXT 1945 PRINT:GOSUB2135:NEXT 1950 GETA$:IFA$=""THEN1965 1955 IFA$="J"THENGOTO1975 1960 IFA$="N"THENGOTO1135 1965 GOSUB3080:GOTO1950 1970 : 1975 REM ------------------------------ 1980 REM ANLEITUNG ZU JUMP 1.1 1985 REM ------------------------------ 1990 : 1995 PRINT"[147]ANLEITUNG ZU JUMP 1.0" 2000 FORX=1TO40:PRINT"[183]";:NEXT 2005 PRINT"[129]ZIEL DES SPIELS IST ES, DURCH WERFEN" 2010 PRINT"VON SPIELSTEINEN M@GLICHST ALLE STEI-" 2015 PRINT"NE VOM SPIELFELD ZU ENTFERNEN." 2020 PRINT"EIN SPIELSTEIN SIEHT SO AUS: [209][129]" 2025 PRINT"EIN LEERES FELD : :[129]" 2030 PRINT"DER SPIELCURSOR L;\T SICH WIE GEWOHNT" 2035 PRINT"MIT DEN CURSORTASTEN AUF DEM SPIELFELD" 2040 PRINT"STEUERN. UM MIT EINEM STEIN ^BER DEN" 2045 PRINT"ANDEREN ZU SPRINGEN MU\ MAN ALS ERSTES" 2050 PRINT"DIESEN MIT RETURN[146] ANW;HLEN." 2055 PRINT"DANN GIBT MAN DIE SPRINGRICHTUNG AN," 2060 PRINT"UND WENN DORT EIN LEERES FELD IST, SO" 2065 PRINT"KANN MAN WERFEN." 2070 PRINT"ES IST ZIEMLICH SCHWER, ALLE STEINE ZU" 2075 PRINT"WERFEN, ICH HABE ES SELBST NOCH NICHT" 2080 PRINT"GESCHAFFT!" 2085 FORQ=1TO40:PRINT"[175]";:NEXT 2090 PRINT" DR^CKEN SIE BITTE IRGENDEINE TASTE!" 2095 POKE198,0:WAIT198,1:GOTO1135 2100 REM ------------------------------ 2105 REM TON 2110 REM ------------------------------ 2115 DATA 166, 6, 153, 1, 64, 12, 134, 0, 0, 0, 0, 0, 0, 0 2120 DATA 0, 0, 0, 0, 0, 0, 0, 4, 216, 16, 31 2125 S=54272:FORI=0TO24:READD:POKES+I,D:NEXTI 2130 REM TON EIN,AUS 2135 POKE 54276,65:POKE54276,64:RETURN 2140 REM ----------------------------- 2145 REM AUFGABE, NEUSTART 2150 REM ----------------------------- 2155 PRINT"[147]^BRIGE STEINE: ";SS 2160 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 2165 PRINT"LEVEL: ";LEVEL 2170 IFSS=TR(LEVEL)THENPRINT"TAGESREKORD: ";TR(LEVEL);" STEINE." 2180 IFNAME$(LEVEL)<>""THENPRINT"REKORDHALTER: ";NAME$(LEVEL) 2185 PRINT"DR^CKEN SIE EINE BELIEBIGE TASTE[146]" 2190 POKE198,0:WAIT198,1:GOTO2200 2195 : 2200 REM ------------------------------ 2205 REM LEVELAUSWAHL 2210 REM ------------------------------ 2215 PRINT"[147]LEVELAUSWAHL JUMP 1.1 BY STEFAN WUDY'88" 2220 FORX=1TO40:PRINT"[183]";:NEXT 2225 PRINT"[154] 0 [146] = LEVEL0 (32 SPIELSTEINE)" 2230 PRINT"[154] 1 [146] = LEVEL1 (64 SPIELSTEINE)" 2235 PRINT" 2 [146] = LEVEL2 (104 SPIELSTEINE)" 2240 PRINT" 3 [146] = LEVEL3 (138 SPIELSTEINE)" 2245 PRINT" 4 [146] = LEVEL4 (159 SPIELSTEINE)" 2250 PRINT"BITTE W;HLEN SIE![160](LEVEL=SPIELST;RKE)" 2255 FORX=1TO40:PRINT"[183]";:NEXT 2260 POKE198,0:WAIT198,1:GETA$ 2265 IFA$="2"THENLEVEL=2:GOTO2295 2270 IFA$="0"THENLEVEL=0:GOTO2295 2275 IFA$="1"THENLEVEL=1:GOTO2295 2280 IFA$="3"THENLEVEL=3:GOTO2295 2285 IFA$="4"THENLEVEL=4:GOTO2295 2290 GOTO2260 2295 REM ------------------------------ 2300 REM VARIABLEN SETZEN 2305 REM ------------------------------ 2310 IFLEVEL=2THENZ=12:S=12:SS=104:GOSUB2340:GOTO1140 2315 IFLEVEL=0THENZ=12:S=12:SS=32:GOSUB2485:GOTO1140 2320 IFLEVEL=4THENZ=12:S=14:SS=159:GOSUB2870:GOTO1140 2325 IFLEVEL=3THENZ=12:S=16:SS=138:GOSUB2595:GOTO1140 2330 IFLEVEL=1THENZ=12:S=12:SS=64:GOSUB2745:GOTO1140 2335 RETURN 2340 REM ------------------------------ 2345 REM LEVEL2 2350 REM ------------------------------ 2355 PRINT"[147] [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [158]JUMP 1.1" 2360 PRINT" [151][221][160][221][160][221][160][221][160][221]" 2365 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [176][192][192][192][192][192][192][192][174][146] [158](W) BY" 2370 PRINT" [151][221][160][221][160][221][160][221] [221] [221]LEVEL 2[221][146] [158]STEFAN" 2375 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [173][192][192][192][192][192][192][192][189][146] [158]WUDY" 2380 PRINT" [151][221][160][221][160][221][160][221][160][221]" 2385 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2390 PRINT" [151][221][160][221][160][221][160][221][160][221]" 2395 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2400 PRINT"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]" 2405 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2410 PRINT"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]" 2415 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2420 PRINT"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221]" 2425 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2430 PRINT"[151][221] [221] [221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160][221][160]" 2435 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2440 PRINT" [151][221][160][221][160][221][160][221][160][221]" 2445 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2450 PRINT" [151][221] [221][160][221][160][221][160][221][160]" 2455 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [155] A [146] = AUFGABE" 2460 PRINT" [151][221] [221] [221] [221][160][221]" 2465 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [155]R[146]=RESET" 2470 PRINT" [151][221][160][221][160][221][160][221][160][221]" 2475 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2480 RETURN 2485 REM ------------------------------ 2490 REM LEVEL0 2495 REM ------------------------------ 2500 PRINT"[147] [158]JUMP 1.1" 2505 PRINT" [176][192][192][192][192][192][192][192][174]" 2510 PRINT" [221]LEVEL 0[221]" 2515 PRINT" [173][192][192][192][192][192][192][192][189]" 2520 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2525 PRINT" [151][221] [221] [221]" 2530 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2535 PRINT" [151][221] [221] [221]" 2540 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2545 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 2550 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192]:[192][155][209][151][192][155][209][151][192][155][209]" 2555 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 2560 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2565 PRINT" [151][221] [221] [221]" 2570 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2575 PRINT" [151][221] [221] [221]" 2580 PRINT" [155][209][151][192][155][209][151][192][155][209] [155] A [146] = AUFGABE" 2585 PRINT" R[146]=RESET" 2590 RETURN 2595 REM ------------------------------ 2600 REM LEVEL3 2605 REM ------------------------------ 2610 PRINT"[147] [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151]" 2615 PRINT" [151][221] [221] [221] [221] [221] [158]JUMP 1.1" 2620 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2625 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [176][192][192][192][192][192][192][192][174]" 2630 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [221]LEVEL 3[221]" 2635 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [173][192][192][192][192][192][192][192][189]" 2640 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2645 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2650 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2655 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2660 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2665 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2670 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2675 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2680 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2685 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2690 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2695 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2700 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2705 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2710 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2715 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 2720 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]  A [146] = AUFGABE" 2725 PRINT" [151][221] [221] [221] [221] [221]" 2730 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] R[146]=RESET"; 2735 RETURN 2740 REM ------------------------------ 2745 REM LEVEL1+ 2750 REM ------------------------------ 2755 PRINT"[147] [158]JUMP 1.1" 2760 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2765 PRINT" [151][221] [221] [221] [176][192][192][192][192][192][192][192][174]" 2770 PRINT" [155][209][151][192][155][209][151][192][155][209] [221]LEVEL 1[221]" 2775 PRINT" [151][221] [221] [221] [173][192][192][192][192][192][192][192][189]" 2780 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2785 PRINT" [151][221] [221] [221]" 2790 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2795 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 2800 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2805 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2810 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192]:[192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2815 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2820 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2825 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 2830 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2835 PRINT" [151][221] [221] [221] [155] A [146] = AUFGABE" 2840 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2845 PRINT" [151][221] [221] [221] [155]R[146]=RESET" 2850 PRINT" [155][209][151][192][155][209][151][192][155][209]" 2855 PRINT" [151][221] [221] [221]" 2860 PRINT" [155][209][151][192][155][209][151][192][155][209]"; 2865 RETURN 2870 REM ------------------------------ 2875 REM LEVEL3+ 2880 REM ------------------------------ 2885 PRINT"[147] [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2890 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [158]JUMP 1.1" 2895 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2900 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [176][192][192][192][192][192][192][192][174]" 2905 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] [221]LEVEL 4[221]" 2910 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [173][192][192][192][192][192][192][192][189]" 2915 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 2920 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2925 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2930 PRINT"[151][192][155][209][151][192][155][209]" 2935 PRINT"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2940 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2945 PRINT"[151][192][155][209][151][192][155][209]" 2950 PRINT"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2955 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155]:[151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2960 PRINT"[151][192][155][209][151][192][155][209]" 2965 PRINT"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2970 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2975 PRINT"[151][192][155][209][151][192][155][209]" 2980 PRINT"[151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 2985 PRINT"[155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 2990 PRINT"[151][192][155][209][151][192][155][209]" 2995 PRINT" [151][221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 3000 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]" 3005 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 3010 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]  A [146] = AUFGABE" 3015 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 3020 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209] R[146]=RESET" 3025 PRINT" [151][221] [221] [221] [221] [221] [221] [221]" 3030 PRINT" [155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209][151][192][155][209]"; 3035 RETURN 3040 REM ------------------------------ 3045 REM TAGESREKORD => NAME EINGEBEN 3050 REM ------------------------------ 3055 PRINT"GEBEN SIE BITTE IHREN NAMEN EIN:" 3060 INPUTNAME$(LEVEL) 3065 PRINT"(ER BLEIBT BIS ZUM AUSSCHALTEN ODER BIS" 3070 PRINT"SIE GESCHLAGEN WERDEN IM COMPUTER)" 3075 RETURN 3080 REM ----------------------------- 3085 REM GAG 3090 REM ----------------------------- 3095 Z=Z+1 3100 IFZ>7THENZ=-0 3105 PRINT""L2$:PRINT"";X$(Z):FORQ=1TO1500:NEXT 3110 RETURN 8000 : 8010 REM ------------------------------ 8020 REM ZEICHENSATZ LADEN 8030 REM ------------------------------ 8040 : 8041 OPEN15,8,15,"I":CLOSE15 8050 POKE 53280,5:POKE 53281,5:PRINT"[147][144]GEDULD ..."CHR$(142) 8060 V=53248 8070 BL=16 8080 ZS$="JUMP-CHAR" 8090 IFZS$=""THEN8080 8100 SYS57812ZS$,8 8110 POKE781,0 8120 POKE782,224 8130 POKE780,0 8140 SYS65493 8150 POKE56576,(PEEK(56576)AND252) 8160 POKE53272,(PEEK(53272)AND15) 8170 POKE648,192 8180 POKE53272,(PEEK(53272)AND240)OR8 8190 PRINT"":RETURN